      MODULE employv2kp_v5
      USE employv2kp_v1
      CONTAINS
      SUBROUTINE SSVTS1(VCNO,SMRPOS,DSMRES,SIMRES,ERRMES)
      INTEGER VCNO,SMRPOS,DSMRES
      REAL SIMRES(DSMRES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSVTS1')
       ERRMES='E-Unexpected VCNO'
       GOTO 15500
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15300 CONTINUE
      CALL GPPGER(0,ERRMES)
      GOTO 15500
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END SUBROUTINE SSVTS1
      END MODULE employv2kp_v5
